Nikkei Mac 20

home *** CD-ROM | disk | FTP | other *** search

/ Nikkei Mac 20 / NIKKEI-MAC-CD-VOL-20-1998-12.ISO.7z / NIKKEI-MAC-CD-VOL-20-1998-12.ISO / デモソフトライブラリー / 日本テレコムODNスターターキット / OT⁄PPP 1.0 Install / CCL Disk / Modem CCLs / Panasonic TO-CAF336 / Panasonic TO-CAF336 next >

Wrap

Text File | 1997-05-29 | 14KB | 702 lines

!************************************************************************** ! Panasonic TO-CAF336 for OT PPP and ARA2.1 ! 11/23/1996 ! Written by Kenji Asaka ;MEIC T.Takahasi;T.Sasaki ! ! 'mlts' resource info for this modem: ! byte 1 == 01 -> modem HAS builtin reliability protocols ! byte 2 == 00 -> reserved by Apple ! byte 3 == 23 -> max hex chars in varstr 7 (35 dec) ! byte 4 == 23 -> max hex chars in varstr 8 ! byte 5 == 23 -> max hex chars in varstr 9 ! !************************************************************************** @ORIGINATE @ANSWER !****************************************** ! set up the modem - label range is 1-10 ! ! !****************************************** ! Mac talks to the modem at 33,600 bps. serreset 57600, 0, 8, 1 !------------------------ ! reset the serial port !------------------------ HSReset 0 1 0 0 0 0 ! ! ! settries 0 @LABEL 1 matchclr matchstr 1 3 "OK¥13¥10" ! &F - recall factory settings ! &D3 - Reset Modem on On-to-Off DTR transitions ! &K3 - Enable CTS/RTS Hardware flow control ! W2 - Display connection speed (Not DTE-Modem speed) in Connect XXXX message. ! %C3 - Enable compression ! ¥N3 - Selects auto reliable mode ! S0=0 - Don't answer calls ! S95=1 - RESULT CODE ! E0 - Turn command echo off write "AT&F&D3&K3W2%C3¥¥N3S0=0S95=1E0¥13" matchread 30 inctries iftries 2 81 !------------------ ! Reset the Modem !------------------- DTRSet pause 5 DTRClear pause 5 DTRSet flush jump 1 ! ! ! @LABEL 3 !----------------------------------------- ! Modem responding & configured. ! determine if reliable link is requested. !----------------------------------------- ! if modem mnp10 link requested (var 4 == 2) then jump label 4 ifstr 4 4 "2" ! ! if modem v42 link requested (var 4 == 1) then jump label 5 ifstr 4 5 "1" ! ! if no modem v42 link requested (var 4 == 0) [same as ARA 1.0] then jump label 9 ifstr 4 9 "0" ! ! else invalid value in var 4; exit w/error jump 86 ! ! ! @LABEL 4 !-------------------------------- ! yes, mnp 10 link is requested. !-------------------------------- matchclr matchstr 1 7 "OK¥13¥10" ! ¥N5 - MNP. ! -K1 - Enables V.42 LAPM to MNP10 conversion ! )M1 - Enables MNP10 Link negotiation write "AT¥¥N5)M1-K1¥13" matchread 300 jump 81 ! ! ! @LABEL 5 !----------------------------------------------------- ! yes, v42 link is requested. OK for LAP-M -> MNP 4. !----------------------------------------------------- matchclr matchstr 1 7 "OK¥13¥10" ! ¥N3 - v42 autoreliable mode write "AT¥¥N3¥13" matchread 300 jump 81 ! ! ! @LABEL 7 !------------------------------------------------------------------------ ! If we DID support compression in the modem, this is where it would go. !------------------------------------------------------------------------ ! ! ! @LABEL 9 !-------------------------------------------------------------------------- ! If speaker on flag is true, jump to label 13. Else turn off the speaker. !-------------------------------------------------------------------------- ifstr 2 13 "1" pause 5 matchclr matchstr 1 13 "OK¥13¥10" write "ATM0¥13" matchread 30 jump 81 !******************************************************************************* ! modem ready, so enable answering or originate a call - label range is 11-30 ! ! !******************************************************************************* @LABEL 13 pause 5 ifANSWER 71 ! ! if normal dialing (parm 6 == 0) jump to 19 ifstr 6 19 "0" ! ! if blind dialing (parm 6 == 1) jump to 17 ifstr 6 17 "1" ! ! if manual dialing (parm 6 == 2) jump to 15 ifstr 6 15 "2" ! ! else invalid value in var 6; exit w/error jump 86 ! ! ! @label 15 note "手動ダイアル中。" 3 ! "Manual dialing initiated" 3 ! X1 to ignore dialtone & busy for manual dialing, D to dial write "ATX1D ¥13" jump 32 ! ! ! @label 17 note "ダイアルトーンを無視してダイアル中。" 3 ! "Dialing without tone" 3 matchclr matchstr 1 19 "OK¥13¥10" ! X3 to ignore dialtone for blind dialing write "ATX3¥13" matchread 30 jump 81 ! ! ! @label 19 ! this is where we break up long dialstrings ! ! parm 1 is always the full dialstring from the conn doc note "^1 をダイアル中。" 3 ! "Dialing ^1" 3 ! parm 3 is always "p" for pulse & "t" for tone ! ! if parm 8 == blank (complete dialstring in parm 7) ! then jump to label 27 & dial parm 7 ifstr 8 27 " " ! ! if parm 9 == blank (complete dialstring in parms 7 & 8) ! then jump to label 24 & dial parm 7 & 8 ifstr 9 24 " " ! ! else dial parm 7 & 8 & 9 (complete dialstring in parms 7, 8 & 9) matchclr matchstr 1 21 "OK¥13¥10" ! parm 7 holds first string fragment write "ATD^3^7;¥13" matchread 400 ! modem not responding; bailout. jump 81 ! ! ! @label 21 ! parm 8 holds second string fragment matchclr matchstr 1 22 "OK¥13¥10" write "ATD^3^8;¥13" matchread 400 ! modem not responding; bailout. jump 81 ! ! ! @label 22 ! parm 9 holds last string fragment write "ATD^3^9¥13" jump 32 ! ! ! ! @label 24 matchclr matchstr 1 25 "OK¥13¥10" ! parm 7 holds first string fragment write "ATD^3^7;¥13" matchread 400 ! modem not responding; bailout. jump 81 ! ! ! @label 25 ! parm 8 holds last string fragment write "ATD^3^8¥13" jump 32 ! ! ! @label 27 ! parm 7 holds entire string write "ATD^3^7¥13" jump 32 !*********************************************** ! connecting - label range is 34-60 ! ! !*********************************************** @LABEL 32 matchclr ! matchstr 1 34 "CONNECT 1200¥13¥10" ! matchstr 2 38 "CONNECT 2400¥13¥10" ! matchstr 3 42 "CONNECT 4800¥13¥10" ! matchstr 4 46 "CONNECT 7200¥13¥10" ! matchstr 5 50 "CONNECT 9600¥13¥10" ! matchstr 6 54 "CONNECT 12000¥13¥10" ! matchstr 7 58 "CONNECT 14400¥13¥10" ! ! other result codes. ! matchstr 8 72 "RING¥13¥10" matchstr 9 82 "NO DIALTONE¥13¥10" matchstr 10 83 "NO CARRIER¥13¥10" matchstr 11 83 "ERROR¥13¥10" matchstr 12 84 "BUSY¥13¥10" matchstr 13 85 "NO ANSWER¥13¥10" matchstr 14 87 "CONNECT¥13¥10" matchstr 15 88 "DELAYED" ! ! matchstr 16 89 "CONNECT 16800¥13¥10" matchstr 17 90 "CONNECT 21600¥13¥10" matchstr 18 91 "CONNECT 24000¥13¥10" matchstr 19 92 "CONNECT 26400¥13¥10" matchstr 20 93 "CONNECT 28800¥13¥10" ! matchstr 21 94 "CONNECT 31200¥13¥10" matchstr 22 95 "CONNECT 33600¥13¥10" ! matchread 700 ifANSWER 32 jump 81 !------------------------------------------------------------ ! THIS v32b modem has been setup to do cts handshaking, ! and we assume that a cts handshaking cable is being used, ! so we leave the serial port set to 19,200 bps. !------------------------------------------------------------ @LABEL 34 note "1200 bps で接続中" 2 ! "Communicating at 1200 bps." 2 CommunicatingAt 1200 jump 68 ! @LABEL 35 note "MNP リンクが成立。" 3 ! "MNP reliable link established." 3 userhook 2 note "1200 bps で接続中" 2 ! "Communicating at 1200 bps." 2 CommunicatingAt 1200 jump 68 ! @LABEL 36 note "MNP 10 リンクが成立。" 3 ! "MNP10 reliable link established." 3 userhook 4 note "1200 bps で接続中" 2 ! "Communicating at 1200 bps." 2 CommunicatingAt 1200 jump 68 ! @LABEL 37 note "LAP-M リンクが成立。" 3 ! "LAP-M reliable link established." 3 userhook 2 note "1200 bps で接続中" 2 ! "Communicating at 1200 bps." 2 CommunicatingAt 1200 jump 68 ! ! ! @LABEL 38 note "2400 bps で接続中" 2 ! "Communicating at 2400 bps." 2 CommunicatingAt 2400 jump 68 ! @LABEL 39 note "MNP リンクが成立。" 3 ! "MNP reliable link established." 3 userhook 2 note "2400 bps で接続中" 2 ! "Communicating at 2400 bps." 2 CommunicatingAt 2400 jump 68 ! @LABEL 40 note "MNP 10 リンクが成立。" 3 ! "MNP10 reliable link established." 3 userhook 4 note "2400 bps で接続中" 2 ! "Communicating at 2400 bps." 2 CommunicatingAt 2400 jump 68 ! @LABEL 41 note "LAP-M リンクが成立。" 3 ! "LAP-M reliable link established." 3 userhook 2 note "2400 bps で接続中" 2 ! "Communicating at 2400 bps." 2 CommunicatingAt 2400 jump 68 ! ! ! @LABEL 42 note "4800 bps で接続中" 2 ! "Communicating at 4800 bps." 2 CommunicatingAt 4800 jump 68 ! @LABEL 43 note "MNP リンクが成立。" 3 ! "MNP reliable link established." 3 userhook 2 note "4800 bps で接続中" 2 ! "Communicating at 4800 bps." 2 CommunicatingAt 4800 jump 68 ! @LABEL 44 note "MNP 10 リンクが成立。" 3 ! "MNP10 reliable link established." 3 userhook 4 note "4800 bps で接続中" 2 ! "Communicating at 4800 bps." 2 CommunicatingAt 4800 jump 68 ! @LABEL 45 note "LAP-M リンクが成立。" 3 ! "LAP-M reliable link established." 3 userhook 2 note "4800 bps で接続中" 2 ! "Communicating at 4800 bps." 2 CommunicatingAt 4800 jump 68 ! ! ! @LABEL 46 note "7200 bps で接続中" 2 ! "Communicating at 7200 bps." 2 CommunicatingAt 7200 jump 68 ! @LABEL 47 note "MNP リンクが成立。" 3 ! "MNP reliable link established." 3 userhook 2 note "7200 bps で接続中" 2 ! "Communicating at 7200 bps." 2 CommunicatingAt 7200 jump 68 ! @LABEL 48 note "MNP 10 リンクが成立。" 3 ! "MNP10 reliable link established." 3 userhook 4 note "7200 bps で接続中" 2 ! "Communicating at 7200 bps." 2 CommunicatingAt 7200 jump 68 ! @LABEL 49 note "LAP-M リンクが成立。" 3 ! "LAP-M reliable link established." 3 userhook 2 note "7200 bps で接続中" 2 ! "Communicating at 7200 bps." 2 CommunicatingAt 7200 jump 68 ! ! ! @LABEL 50 note "9600 bps で接続中" 2 ! "Communicating at 9600 bps." 2 CommunicatingAt 9600 jump 68 ! @LABEL 51 note "MNP リンクが成立。" 3 ! "MNP reliable link established." 3 userhook 2 note "9600 bps で接続中" 2 ! "Communicating at 9600 bps." 2 CommunicatingAt 9600 jump 68 ! @LABEL 52 note "MNP 10 リンクが成立。" 3 ! "MNP10 reliable link established." 3 userhook 4 note "9600 bps で接続中" 2 ! "Communicating at 9600 bps." 2 CommunicatingAt 9600 jump 68 ! @LABEL 53 note "LAP-M リンクが成立。" 3 ! "LAP-M reliable link established." 3 userhook 2 note "9600 bps で接続中" 2 ! "Communicating at 9600 bps." 2 CommunicatingAt 9600 jump 68 ! ! ! @LABEL 54 note "12 kbps で接続中" 2 ! "Communicating at 12000 bps." 2 CommunicatingAt 12000 jump 68 ! @LABEL 55 note "MNP リンクが成立。" 3 ! "MNP reliable link established." 3 userhook 2 note "12 kbps で接続中" 2 ! "Communicating at 12000 bps." 2 CommunicatingAt 12000 jump 68 ! @LABEL 56 note "MNP 10 リンクが成立。" 3 ! "MNP10 reliable link established." 3 userhook 4 note "12 kbps で接続中" 2 ! "Communicating at 12000 bps." 2 CommunicatingAt 12000 jump 68 ! @LABEL 57 note "LAP-M リンクが成立。" 3 ! "LAP-M reliable link established." 3 userhook 2 note "12 kbps で接続中" 2 ! "Communicating at 12000 bps." 2 CommunicatingAt 12000 jump 68 ! ! ! @LABEL 58 note "14.4 kbps で接続中" 2 ! "Communicating at 14400 bps." 2 CommunicatingAt 14400 jump 68 ! @LABEL 59 note "MNP リンクが成立。" 3 ! "MNP reliable link established." 3 userhook 2 note "14.4 kbps で接続中" 2 ! "Communicating at 14400 bps." 2 CommunicatingAt 14400 jump 68 ! @LABEL 60 note "MNP 10 リンクが成立。" 3 ! "MNP10 reliable link established." 3 userhook 4 note "14.4 kbps で接続中" 2 ! "Communicating at 14400 bps." 2 CommunicatingAt 14400 jump 68 ! @LABEL 61 note "LAP-M リンクが成立。" 3 ! "LAP-M reliable link established." 3 userhook 2 note "14.4 kbps で接続中" 2 ! "Communicating at 14400 bps." 2 CommunicatingAt 14400 jump 68 ! ! @LABEL 89 note "16.8 kbps で接続中" 2 ! "Communicating at 14400 bps." 2 CommunicatingAt 16800 jump 68 ! ! @LABEL 90 note "21.6 kbps で接続中" 2 ! "Communicating at 14400 bps." 2 CommunicatingAt 21600 jump 68 ! @LABEL 91 note "24.0 kbps で接続中" 2 ! "Communicating at 24000 bps." 2 CommunicatingAt 24000 jump 68 ! ! @LABEL 92 note "26.4 kbps で接続中" 2 ! "Communicating at 26400 bps." 2 CommunicatingAt 26400 jump 68 ! ! @LABEL 93 note "28.8 kbps で接続中" 2 ! "Communicating at 28800 bps." 2 CommunicatingAt 28800 jump 68 ! @LABEL 94 note "31.6 kbps で接続中" 2 ! "Communicating at 31600 bps." 2 CommunicatingAt 31600 jump 68 ! @LABEL 95 note "33.6 kbps で接続中" 2 ! "Communicating at 33600 bps." 2 CommunicatingAt 33600 jump 68 ! @LABEL 68 ! turn on cts handshaking. HSReset 0 1 0 0 0 0 ! ifANSWER 69 pause 30 @LABEL 69 exit 0 !************************************************************ ! @ANSWER ! Set the modem to answer on 1st ring - label range is 71-80 ! !************************************************************ @LABEL 71 matchclr matchstr 1 32 "OK¥13¥10" write "ATS0=1¥13" matchread 30 jump 81 ! @LABEL 72 ifORIGINATE 32 ! claim the serial port userhook 1 note "電話に応対しています。" 2 ! "Answering phone..." 2 jump 32 !************************************************ ! error messages - label range is 81-100 ! ! !************************************************ ! Modem Not Responding @LABEL 81 exit -6019 ! ! No Dial Tone @LABEL 82 exit -6020 ! ! No Carrier or Error @LABEL 83 exit -6021 ! ! Busy @LABEL 84 exit -6022 ! ! No Answer @LABEL 85 exit -6023 ! ! varstring invalid value @LABEL 86 exit -6027 ! ! Connect 300bps @LABEL 87 exit -6002 "ARA は 300bps の接続に対応していません。" ! -6002 "ARA doesn't support 300bps connection." ! ! DELAYED @LABEL 88 exit -6022 !******************************************** ! Hang up the modem - label range is 101-120 ! ! !******************************************** @HANGUP @LABEL 102 settries 0 HSReset 0 0 0 0 0 0 @LABEL 105 !---------------------------- ! firstly try escape sequence !---------------------------- matchclr matchstr 1 108 "OK¥13¥10" pause 10 write "+++" matchread 15 ! @LABEL 108 !------------------- ! secondly try ATH !------------------- matchclr matchstr 1 111 "NO CARRIER¥13¥10" matchstr 2 111 "OK¥13¥10" matchstr 3 111 "ERROR¥13¥10" write "ATH¥13" matchread 30 inctries iftries 3 81 !--------------------------------------- ! finaly try On-to-Off DTR transitions !--------------------------------------- DTRSet pause 5 DTRClear pause 5 DTRSet flush jump 105 !------------------------------ ! recall the factory settings. !------------------------------ @LABEL 111 pause 15 matchclr matchstr 1 114 "OK¥13¥10" write "AT&FS0=0¥13" matchread 30 jump 81 ! @LABEL 114 exit 0 !********************************************************* ! labels 121-128 are reserved for future emergency hacks ! ! !********************************************************